home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / TCPOOExample / MyTypes.unit next >
Encoding:
Text File  |  1993-07-01  |  2.8 KB  |  130 lines  |  [TEXT/PJMM]
  1. unit MyTypes;
  2.  
  3. { From Peter's PNL Libraries }
  4. { Copyright 1992 Peter N Lewis }
  5. { This source may be used for any non-commercial purposes as long as I get a mention }
  6. { in the About box and Docs of any derivative program.  It may not be used in any commercial }
  7. { application without my permission }
  8.  
  9. interface
  10.  
  11.     const
  12.         sysWDProcID = $4552494B;        { 'ERIK' }
  13.         myErr = -5;
  14.         myErr2 = -6;
  15.         cancelErr = myErr2;
  16.         myErr3 = -7;
  17.         noType = 0;                            { should be OSType(0) !!! }
  18.  
  19.     const
  20.         M_Apple = 128;
  21.         M_File = 129;
  22.         M_Edit = 130;
  23.  
  24.     const
  25.         CAbout = 'abou';
  26.         CNew = 'new ';
  27.         COpen = 'open';
  28.         CSave = 'save';
  29.         CSaveAs = 'svas';
  30.         CClose = 'clos';
  31.         CPreferences = 'pref';
  32.         CPageSetUp = 'pgsu';
  33.         CPrint = 'prnt';
  34.         CHelp = 'help';
  35.         CQuit = 'quit';
  36.         CUndo = 'undo';
  37.         CCut = 'cut ';
  38.         CCopy = 'copy';
  39.         CPaste = 'past';
  40.         CClear = 'clea';
  41.         CSelectAll = 'sela';
  42.  
  43.     const                                    { Low Memory Globals }
  44.         curApNameA = $910;
  45.         ticksA = $16A;
  46.         SFSaveDiskA = $214;
  47.         CurDirStoreA = $398;
  48.  
  49.     const                                    { Other OS constants, probably declared somewhere now }
  50.         kSysEnvironsVersion = 1;
  51.         kOSEvent = app4Evt;                {event used by MultiFinder}
  52.         kSuspendResumeMessage = 1;    {high byte of suspend/resume event message}
  53.         kResumeMask = 1;                    {bit of message field for resume vs. suspend}
  54.         kMouseMovedMessage = $FA;    {high byte of mouse-moved event message}
  55.         kNoEvents = 0;                        {no events mask}
  56.  
  57.     const                                    { Constants that aren't normally defined }
  58.         drawCntlMsg = 0;
  59.         testCntlMsg = 1;
  60.         calcCRgnsMsg = 2;
  61.         initCntlMsg = 3;
  62.         dispCntlMsg = 4;
  63.         posCntlMsg = 5;
  64.         thumbCntlMsg = 6;
  65.         dragCntlMsg = 7;
  66.         autoTrackMsg = 8;
  67.  
  68.     const
  69.         EMUndo = 1;
  70.         EMCut = 3;
  71.         EMCopy = 4;
  72.         EMPaste = 5;
  73.         EMClear = 6;
  74.         EMSelectAll = 7;
  75.  
  76.     const
  77.         nulChar = 0;
  78.         homeChar = $01;
  79.         enterChar = $03;
  80.         endChar = $04;
  81.         helpChar = $05;
  82.         backSpaceChar = $08;
  83.         tabChar = $09;
  84.         lfChar = $0A;
  85.         pageUpChar = $0b;
  86.         pageDownChar = $0c;
  87.         crChar = $0D;
  88.         escChar = $1b;
  89.         escKey = $35;
  90.         clearChar = $1b;
  91.         clearKey = $47;
  92.         leftArrowChar = $1c;
  93.         rightArrowChar = $1d;
  94.         upArrowChar = $1e;
  95.         downArrowChar = $1f;
  96.         spaceChar = $20;
  97.         delChar = $7f;
  98.         bulletChar = $a5;
  99.         undoKey = $7a;
  100.         cutKey = $78;
  101.         copyKey = $63;
  102.         pasteKey = $76;
  103.  
  104.     const
  105.         nul = chr(nulChar);
  106.         enter = chr(enterChar);
  107.         bs = chr(backSpaceChar);
  108.         tab = chr(tabChar);
  109.         lf = chr(lfChar);
  110.         cr = chr(crChar);
  111.         leftArrow = chr(leftArrowChar);
  112.         rightArrow = chr(rightArrowChar);
  113.         upArrow = chr(upArrowChar);
  114.         downArrow = chr(downArrowChar);
  115.         esc = chr(escChar);
  116.         spc = chr(spaceChar);
  117.         del = chr(delChar);
  118.  
  119.     type
  120.         integerP = ^integer;
  121.         integerH = ^integerP;
  122.         longIntP = ^longInt;
  123.         longIntH = ^longIntP;
  124.         forkType = (no_fork, data_fork, rsrc_fork, both_fork);
  125.         buf255 = packed array[0..255] of char;
  126.         CRLFTypes = (CL_CRLF, CL_CR, CL_LF);
  127.  
  128. implementation
  129.  
  130. end.